home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / databases / mdb3_0b_bin.lha / mdb3_0 / rexx / MGuide.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-10-02  |  1.3 KB  |  83 lines
  1. /*============================================================================
  2.  *
  3.  *  Program:   mguide.rexx
  4.  *
  5.  *  Version:   1.0 (30.09.94)
  6.  *
  7.  *  Purpose:   read in a file of movietitles and create a movieguide 
  8.  *
  9.  *  Author:    Bernd Ernesti & Andre Bernhardt
  10.  *
  11.  *  Copyright (c) 1993 Bernd Ernesti
  12.  *
  13.  *  History:
  14.  *
  15.  *============================================================================
  16.  */
  17.  
  18. options failat 255
  19. options results
  20.  
  21. parse arg filename
  22.  
  23. filename = strip(filename,'B','"')
  24.  
  25. if strip(filename) = '' then
  26.     do
  27.         say 'MGuide.rexx © 1994 Bernd Ernesti'
  28.         say 'usage: rx MGuide [filename]'
  29.         exit
  30.     end
  31.  
  32.  
  33. if ~open(file,filename,'r') then
  34.     do
  35.         say 'cannot find file "'filename'"'
  36.         say 'Exiting'
  37.         return 10
  38.     end
  39.  
  40.     n = 0
  41.     line.1 = ''
  42.  
  43.     do n=1 until eof(file)
  44.         line.n = strip(readln(file))
  45.         if line.n = '' then n = n - 1
  46.     end
  47.  
  48. if line.1 = '' then n = 0
  49.  
  50.     call close(file)
  51.  
  52.     if n = 0 then 
  53.         do
  54.             say 'No entries in "'filename'"'
  55.             say 'Exiting'
  56.             return 10
  57.         end
  58.  
  59.     line.0 = n
  60.  
  61. port_name = "MOVIEMUI"
  62.  
  63. if ( ~show( 'p', port_name ) ) then do
  64.  say "Please start MovieMUI first."
  65.  exit
  66. end
  67.  
  68.  
  69. do j = 1 to line.0
  70.  
  71.  address value port_name
  72.  
  73.  'GET "'||line.j||'" FROM MOVIE'
  74.  
  75.  if RC~=0 then 
  76.   say 'The movie '||line.j||' is not in the database. Please check correct spelling.'
  77.  else do
  78.   say result
  79.   say ""
  80.  end 
  81.  
  82. end
  83.